home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / bgsound6.zip / BGDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-30  |  397b  |  15 lines
  1. Program back_ground_demo;
  2.  
  3. uses crt,bgsound;
  4.  
  5. begin
  6.   writeln('Building music');
  7.   PlayMusic('T80 O4 L8 GFE-FGGG P8 FFF4 GB-B-4 GFE-FGGG GFFGFE-');
  8.   writeln('Music is playing');
  9.   while BGSPlaying do begin  { wait for music to end }
  10.     if WhereY = 25 then ClrScr;
  11.     writeln('The program can continue processing while the music is playing')
  12.   end;
  13.   writeln('Music is done')
  14. end.
  15.